home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / qbsub10.arc / SIGNDMO.ASC < prev    next >
Text File  |  1986-06-25  |  2KB  |  58 lines
  1. ' SIGNDMO.ASC -- MSDOS QuickBASIC Sign subroutines test        25 June 86
  2. '        by David L. Poskie     (608) 274-9560
  3. '                  7118 Raymond Rd. Madison, WI 53719
  4. ' Please run any suggestions, corrections, additions, or changes by me.
  5. ' I can be messaged on all the major Madison, WI RBBS's.
  6.  
  7. '| Signs are one-line windows. 
  8. '| 2 subroutines: Sign & SignCenter are in OMNI.SUB. 
  9.  
  10. GOTO Start
  11.     Rem    $Include: 'OMNI.SUB'
  12.  
  13. Start:
  14.     COLOR 14 , 3 ,8
  15.     CLS
  16.  
  17.     ' Print centered Text$, with top of sign frame on line 2 
  18.     X = 2                     'Set the starting line
  19.     FG = 15                    'Set the color of Text$
  20.     BG = 4                    'Set the background color
  21.     MG = 12                    'Set the color of sign frame
  22.     KeyCode = 8                'Set ASCII code of sign frame
  23.     Text$ = "Sign Routine Demonstration"    'Name Text$
  24.     GOSUB SignCenter            'Do it
  25.  
  26.     'Print Text$ at 10 , 60 = upper left corner of frame
  27.     X = 10                     'Set the line
  28.     Y = 60                    'Set the column
  29.     FG = 14                    'Set the color of Text$
  30.     BG = 4                    'Set the background color 
  31.     MG = 15                    'Set the color of sign frame
  32.     KeyCode = 254                'Set ASCII code of sign frame
  33.     Text$ = " Any string "            'Name Text$
  34.     GOSUB Sign                'Do it
  35.     'Note the only difference is we need to include Y (column)
  36.  
  37.     'Print Text$ at 15 , 34
  38.     X = 15 
  39.     Y = 34
  40.     FG = 5
  41.     BG = 7
  42.     MG = 13
  43.     KeyCode = 205
  44.     Text$ = " Any time "
  45.     GOSUB Sign
  46.  
  47.     'Print Text$ at 20 , 5
  48.     X = 20 
  49.     Y = 5
  50.     FG = 15
  51.     BG = 2
  52.     MG = 10
  53.     KeyCode = 186
  54.     Text$ = " Any place "
  55.     GOSUB Sign
  56. SYSTEM
  57. ' >>>>> Physical EOF SIGNDMO.ASC  25 June 86
  58.